BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / T / TSiGraphics Preview.sit / TSiGraphics Preview / B&W Demo Source < prev next >
MacBinary | 1993-02-10 | 2.4 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: B&W Demo Source
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Feb 10 12:57:00 1993, modified Wed Feb 10 12:57:00 1993, creator 'MPS ', type ASCII, 1678 bytes "B&W Demo Source" , at 0x70e 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 42 26 57 20 44 65 | 6d 6f 20 53 6f 75 72 63 |..B&W De|mo Sourc|
|00000010| 65 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 06 8e 00 | 00 01 ac a7 9e f2 6c a7 |........|......l.|
|00000060| 9e f2 6c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..l.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 36 42 00 00 |........|....6B..|
|00000080| 20 20 20 20 20 20 50 72 | 6f 67 72 61 6d 20 42 57 |      Pr|ogram BW|
|00000090| 44 65 6d 6f 0d 20 20 20 | 20 20 20 52 45 41 4c 20 |Demo.   |   REAL |
|000000a0| 78 64 61 74 61 28 32 30 | 30 29 2c 20 20 79 64 61 |xdata(20|0),  yda|
|000000b0| 74 61 28 32 30 30 29 2c | 20 20 79 32 64 61 74 61 |ta(200),|  y2data|
|000000c0| 28 32 30 30 29 0d 20 20 | 20 20 20 20 49 4e 54 45 |(200).  |    INTE|
|000000d0| 47 45 52 20 69 2c 6e 0d | 20 20 20 20 20 20 43 6f |GER i,n.|      Co|
|000000e0| 6d 6d 6f 6e 20 2f 74 68 | 65 44 61 74 61 2f 20 78 |mmon /th|eData/ x|
|000000f0| 64 61 74 61 2c 20 79 64 | 61 74 61 2c 20 79 32 64 |data, yd|ata, y2d|
|00000100| 61 74 61 2c 20 6e 0d 20 | 20 20 20 20 20 45 78 74 |ata, n. |     Ext|
|00000110| 65 72 6e 61 6c 20 43 72 | 65 61 74 65 50 6c 6f 74 |ernal Cr|eatePlot|
|00000120| 0d 0d 21 09 49 6e 69 74 | 69 61 6c 69 7a 65 20 54 |..!.Init|ialize T|
|00000130| 53 49 20 47 72 61 70 68 | 69 63 73 0d 20 20 20 20 |SI Graph|ics.    |
|00000140| 20 20 43 61 6c 6c 20 49 | 6e 69 74 47 72 61 70 68 |  Call I|nitGraph|
|00000150| 69 63 73 50 61 63 6b 61 | 67 65 28 29 0d 09 20 0d |icsPacka|ge().. .|
|00000160| 21 09 43 72 65 61 74 65 | 20 74 68 65 20 64 61 74 |!.Create| the dat|
|00000170| 61 20 66 6f 72 20 70 6c | 6f 74 74 69 6e 67 20 61 |a for pl|otting a|
|00000180| 6e 64 20 70 61 73 73 20 | 74 68 72 6f 75 67 68 20 |nd pass |through |
|00000190| 63 6f 6d 6d 6f 6e 20 62 | 6c 6f 63 6b 73 0d 20 20 |common b|locks.  |
|000001a0| 20 20 20 20 6e 20 3d 20 | 32 30 30 0d 20 20 20 20 |    n = |200.    |
|000001b0| 20 20 20 64 6f 20 69 20 | 3d 20 31 2c 20 6e 0d 20 |   do i |= 1, n. |
|000001c0| 20 20 20 20 20 20 20 20 | 78 64 61 74 61 28 69 29 |        |xdata(i)|
|000001d0| 20 3d 20 69 0d 20 20 20 | 20 20 20 20 20 20 79 64 | = i.   |      yd|
|000001e0| 61 74 61 28 69 29 20 3d | 20 73 69 6e 28 50 49 2a |ata(i) =| sin(PI*|
|000001f0| 69 2f 28 32 32 35 2d 69 | 29 29 0d 20 20 20 20 20 |i/(225-i|)).     |
|00000200| 20 20 20 20 79 32 64 61 | 74 61 28 69 29 20 3d 20 |    y2da|ta(i) = |
|00000210| 73 69 6e 28 50 49 2a 69 | 2f 35 32 29 20 2a 20 69 |sin(PI*i|/52) * i|
|00000220| 20 2a 20 31 2e 31 2f 72 | 65 61 6c 28 6e 29 0d 20 | * 1.1/r|eal(n). |
|00000230| 20 20 20 20 20 20 65 6e | 64 20 64 6f 0d 09 20 0d |      en|d do.. .|
|00000240| 21 09 43 72 65 61 74 65 | 20 61 20 67 72 61 70 68 |!.Create| a graph|
|00000250| 69 63 73 20 77 69 6e 64 | 6f 77 20 61 6e 64 20 68 |ics wind|ow and h|
|00000260| 6f 6f 6b 20 75 70 20 6f | 75 72 20 73 75 62 72 6f |ook up o|ur subro|
|00000270| 75 74 69 6e 65 0d 20 20 | 20 20 20 20 43 61 6c 6c |utine.  |    Call|
|00000280| 20 44 72 61 77 49 6e 4e | 65 77 57 69 6e 64 6f 77 | DrawInN|ewWindow|
|00000290| 28 43 72 65 61 74 65 50 | 6c 6f 74 29 0d 0d 21 09 |(CreateP|lot)..!.|
|000002a0| 4d 61 6b 65 20 74 68 65 | 20 46 4f 52 54 52 41 4e |Make the| FORTRAN|
|000002b0| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 20 73 6d 61 | text wi|ndow sma|
|000002c0| 6c 6c 0d 20 20 20 20 20 | 20 43 61 6c 6c 20 4d 6f |ll.     | Call Mo|
|000002d0| 76 65 4f 75 74 57 69 6e | 64 6f 77 28 31 30 2c 36 |veOutWin|dow(10,6|
|000002e0| 30 2c 32 35 30 2c 31 32 | 30 29 0d 09 20 20 77 72 |0,250,12|0)..  wr|
|000002f0| 69 74 65 28 2a 2c 2a 29 | 20 27 54 53 69 47 72 61 |ite(*,*)| 'TSiGra|
|00000300| 70 68 69 63 73 20 44 65 | 6d 6f 27 0d 0d 21 09 45 |phics De|mo'..!.E|
|00000310| 78 69 74 20 61 6e 64 20 | 6c 65 74 20 74 68 65 20 |xit and |let the |
|00000320| 46 4f 52 54 52 41 4e 20 | 6d 65 6e 75 73 20 74 61 |FORTRAN |menus ta|
|00000330| 6b 65 20 6f 76 65 72 0d | 20 20 20 20 20 20 45 6e |ke over.|      En|
|00000340| 64 0d 09 20 20 20 0d 0d | 20 20 20 20 20 20 53 75 |d..   ..|      Su|
|00000350| 62 72 6f 75 74 69 6e 65 | 20 43 72 65 61 74 65 50 |broutine| CreateP|
|00000360| 6c 6f 74 0d 21 20 20 09 | 4c 6f 61 64 20 70 72 65 |lot.!  .|Load pre|
|00000370| 64 65 66 69 6e 65 64 20 | 63 6f 6e 73 74 61 6e 74 |defined |constant|
|00000380| 73 20 66 6f 72 20 65 61 | 73 69 65 72 20 72 65 61 |s for ea|sier rea|
|00000390| 64 69 6e 67 20 6f 66 20 | 74 68 65 20 63 6f 64 65 |ding of |the code|
|000003a0| 0d 20 20 20 20 20 20 69 | 6e 63 6c 75 64 65 20 27 |.      i|nclude '|
|000003b0| 54 53 49 43 6f 6e 73 74 | 61 6e 74 73 2e 66 69 27 |TSIConst|ants.fi'|
|000003c0| 0d 20 20 20 20 20 20 52 | 45 41 4c 20 78 64 61 74 |.      R|EAL xdat|
|000003d0| 61 28 32 30 30 29 2c 20 | 79 64 61 74 61 28 32 30 |a(200), |ydata(20|
|000003e0| 30 29 2c 20 79 32 64 61 | 74 61 28 32 30 30 29 0d |0), y2da|ta(200).|
|000003f0| 20 20 20 20 20 20 49 4e | 54 45 47 45 52 20 6e 0d |      IN|TEGER n.|
|00000400| 20 20 20 20 20 20 43 6f | 6d 6d 6f 6e 20 2f 74 68 |      Co|mmon /th|
|00000410| 65 44 61 74 61 2f 20 78 | 64 61 74 61 2c 20 79 64 |eData/ x|data, yd|
|00000420| 61 74 61 2c 20 79 32 64 | 61 74 61 2c 20 20 6e 0d |ata, y2d|ata,  n.|
|00000430| 0d 21 20 20 20 20 20 20 | 20 49 6e 69 74 69 61 6c |.!      | Initial|
|00000440| 69 7a 65 20 74 68 65 20 | 67 72 61 70 68 20 77 69 |ize the |graph wi|
|00000450| 6e 64 6f 77 0d 20 20 20 | 20 20 20 43 61 6c 6c 20 |ndow.   |   Call |
|00000460| 49 6e 69 74 47 72 61 70 | 68 57 69 6e 64 6f 77 0d |InitGrap|hWindow.|
|00000470| 20 20 20 20 20 20 20 20 | 20 0d 21 20 20 20 20 20 |        | .!     |
|00000480| 20 20 42 6f 72 64 65 72 | 20 74 68 65 20 63 75 72 |  Border| the cur|
|00000490| 72 65 6e 74 20 70 6c 6f | 74 20 72 65 67 69 6f 6e |rent plo|t region|
|000004a0| 20 69 6e 20 42 6c 61 63 | 6b 0d 20 20 20 20 20 20 | in Blac|k.      |
|000004b0| 43 61 6c 6c 20 42 6f 72 | 64 65 72 50 6c 6f 74 52 |Call Bor|derPlotR|
|000004c0| 65 67 69 6f 6e 28 42 6c | 61 63 6b 29 0d 20 20 20 |egion(Bl|ack).   |
|000004d0| 20 20 20 20 20 0d 21 20 | 20 20 20 20 20 20 43 68 |     .! |      Ch|
|000004e0| 61 6e 67 65 20 66 6f 6e | 74 20 74 6f 20 54 69 6d |ange fon|t to Tim|
|000004f0| 65 73 20 62 6f 6c 64 2c | 20 31 32 0d 20 20 20 20 |es bold,| 12.    |
|00000500| 20 20 43 61 6c 6c 20 53 | 65 74 54 65 78 74 53 74 |  Call S|etTextSt|
|00000510| 79 6c 65 28 27 54 69 6d | 65 73 27 2c 20 62 6f 6c |yle('Tim|es', bol|
|00000520| 64 2c 20 30 2c 20 31 32 | 29 0d 09 20 20 0d 21 20 |d, 0, 12|)..  .! |
|00000530| 20 20 20 20 20 20 44 65 | 74 65 72 6d 69 6e 65 20 |      De|termine |
|00000540| 74 68 65 20 61 78 65 73 | 20 61 75 74 6f 6d 61 74 |the axes| automat|
|00000550| 69 63 61 6c 6c 79 2c 20 | 70 6c 6f 74 20 74 68 65 |ically, |plot the|
|00000560| 20 64 61 74 61 0d 20 20 | 20 20 20 20 43 61 6c 6c | data.  |    Call|
|00000570| 20 41 75 74 6f 41 78 65 | 73 28 78 64 61 74 61 2c | AutoAxe|s(xdata,|
|00000580| 20 79 64 61 74 61 2c 20 | 6e 2c 20 30 2c 20 6c 61 | ydata, |n, 0, la|
|00000590| 62 65 6c 41 78 69 73 2c | 20 6c 61 62 65 6c 41 78 |belAxis,| labelAx|
|000005a0| 69 73 2c 20 30 29 0d 20 | 20 20 20 20 20 43 61 6c |is, 0). |     Cal|
|000005b0| 6c 20 4c 69 6e 65 50 6c | 6f 74 28 78 64 61 74 61 |l LinePl|ot(xdata|
|000005c0| 2c 20 79 64 61 74 61 2c | 20 6e 2c 20 42 6c 61 63 |, ydata,| n, Blac|
|000005d0| 6b 29 0d 20 20 20 20 20 | 20 43 61 6c 6c 20 4c 69 |k).     | Call Li|
|000005e0| 6e 65 50 6c 6f 74 28 78 | 64 61 74 61 2c 20 79 32 |nePlot(x|data, y2|
|000005f0| 64 61 74 61 2c 20 6e 2c | 20 42 6c 61 63 6b 29 0d |data, n,| Black).|
|00000600| 0d 21 20 20 20 20 20 20 | 20 43 68 61 6e 67 65 20 |.!      | Change |
|00000610| 66 6f 6e 74 20 74 6f 20 | 54 69 6d 65 73 20 62 6f |font to |Times bo|
|00000620| 6c 64 2b 69 74 61 6c 69 | 63 2c 20 31 38 70 74 20 |ld+itali|c, 18pt |
|00000630| 61 6e 64 20 74 69 74 6c | 65 20 74 68 65 20 70 6c |and titl|e the pl|
|00000640| 6f 74 20 72 65 67 69 6f | 6e 20 0d 20 20 20 20 20 |ot regio|n .     |
|00000650| 20 43 61 6c 6c 20 53 65 | 74 54 65 78 74 53 74 79 | Call Se|tTextSty|
|00000660| 6c 65 28 27 54 69 6d 65 | 73 27 2c 20 62 6f 6c 64 |le('Time|s', bold|
|00000670| 2b 69 74 61 6c 69 63 2c | 20 30 2c 20 31 38 29 0d |+italic,| 0, 18).|
|00000680| 20 20 20 20 20 20 43 61 | 6c 6c 20 54 69 74 6c 65 |      Ca|ll Title|
|00000690| 50 6c 6f 74 52 65 67 69 | 6f 6e 28 27 50 6c 6f 74 |PlotRegi|on('Plot|
|000006a0| 73 20 6f 66 20 46 28 53 | 69 6e 28 78 29 29 27 29 |s of F(S|in(x))')|
|000006b0| 0d 0d 21 09 54 69 74 6c | 65 20 74 68 65 20 70 6c |..!.Titl|e the pl|
|000006c0| 6f 74 20 77 69 6e 64 6f | 77 0d 20 20 20 20 20 20 |ot windo|w.      |
|000006d0| 43 61 6c 6c 20 54 69 74 | 6c 65 57 69 6e 64 6f 77 |Call Tit|leWindow|
|000006e0| 28 27 4c 69 6e 65 20 50 | 6c 6f 74 20 44 65 6d 6f |('Line P|lot Demo|
|000006f0| 27 29 0d 0d 20 20 20 20 | 20 20 52 65 74 75 72 6e |')..    |  Return|
|00000700| 20 0d 20 20 20 20 20 20 | 45 6e 64 20 0d 0d 00 00 | .      |End ....|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000790| f9 4b 1c 81 f9 4c 1c b7 | f9 4d 1c dc f9 4e 1d 02 |.K...L..|.M...N..|
|000007a0| f9 4f 1d 31 f9 50 1d 4d | f9 51 1d 62 f9 52 1d a2 |.O.1.P.M|.Q.b.R..|
|000007b0| 0f 42 26 57 20 44 65 6d | 6f 20 53 6f 75 72 63 65 |.B&W Dem|o Source|
|000007c0| 02 00 00 00 50 61 72 74 | 53 49 54 78 00 00 00 00 |....Part|SITx....|
|000007d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a9 80 21 91 00 00 | 00 00 00 00 01 ac 20 c3 |....!...|...... .|
|00000800| fb 01 20 d9 fb 02 20 f2 | fb 03 21 1a fb 04 21 39 |.. ... .|..!...!9|
|00000810| fb 05 21 54 fb 06 21 75 | fb 07 21 94 fb af 21 b7 |..!T..!u|..!...!.|
|00000820| fb b0 21 c7 fb b1 21 e6 | fb b2 22 08 fb b3 22 24 |..!...!.|.."..."$|
|00000830| fb b4 22 3c fb b5 22 54 | fb b6 22 6e fb b7 22 8e |.."<.."T|.."n..".|
|00000840| fb b8 22 af fb cd 22 da | fb ce 23 05 fb cf 23 1d |.."...".|..#...#.|
|00000850| fb d0 23 33 fb d1 23 42 | fb d2 23 65 fb d3 23 79 |..#3..#B|..#e..#y|
|00000860| fb d4 23 94 fb d5 23 af | fb d6 23 c0 fb fb 23 e7 |..#...#.|..#...#.|
|00000870| fb fc 24 0a fb fd 24 1d | fb fe 24 3f fb ff 24 67 |..$...$.|..$?..$g|
|00000880| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 a9 00 00 |...H..Mo|naco....|
|00000890| 00 00 00 14 00 01 e5 00 | 00 0a 00 fd 00 b7 01 08 |........|........|
|000008a0| 00 b8 00 66 00 00 00 06 | 00 04 00 37 00 66 01 c2 |...f....|...7.f..|
|000008b0| 02 4b 00 37 00 66 01 c2 | 02 4b a7 9e ac 1c 00 00 |.K.7.f..|.K......|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000008d0| 00 37 00 66 01 c2 02 4b | 00 37 00 66 01 c2 02 4b |.7.f...K|.7.f...K|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 31 |.....n..|.n...>.1|
|00000900| 4e 40 0d f6 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |N@......|.>..MPSR|
|00000910| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 03 f0 ff ff 00 00 00 4c | 00 33 34 4c 00 00 00 00 |.......L|.34L....|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+